pragma runLim, 0
	Module        lm    = null
	Module        sm    = null
	Object        o     = null
	string        lmn   = ""
	string        src   = ""
	string        tgt   = ""
	int           count = 0
	ModuleVersion mv    = null
	Link          l     = null

	lmn = "/JohnE-Test-FullProduct-07-26/LinkModules/Heritage Link Modules/Main Links"

	// read the link module
	lm = read(lmn, false)
  if ( lm == null ) {print "\n" lmn " can't be opened\n"}
  else {
	for o in lm do
	{
		// get names of source and target modules
		src = o."source" ""
		tgt = o."target" ""

		// read the source module
		sm = read(src, false,true)

       if (sm == null) {print "\n" src " can't be opened\n"}
	   else {
		filtering off
		for o in all(sm) do
		{
			for l in all(o->lmn) do
			{
				// check for target module for matching name
				if (fullName(target l) == tgt)
				{
					count++
				}
			}
		}

		close(sm)

	   }
	}
	print "\n" count""

	close(lm)
	}